home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 45 / Amiga Format CD45 (1999-09)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-11].iso / +system+ / tools / expert / libguide / mycheck.rexx < prev    next >
OS/2 REXX Batch file  |  1999-01-25  |  2KB  |  61 lines
  1. /*************************************************
  2.  * myCheck.rexx to split $Check1 and $Check2     *
  3.  * V1.1 © Heiko Schröder 98/99                   *
  4.  *************************************************
  5.  *                                               *
  6.  * 1.0 - erstes Release, um auch Versions mit-   *
  7.  *       einander vergleichen zu können          *
  8.  * 1.1 - removed stupid bug                      *
  9.  *       better comparison of version strings    *
  10.  *************************************************/
  11. /* check1=system
  12.    check2=LibGuide */
  13.  
  14. Parse ARG check1","check2
  15. check2=Delstr(check2,1,1)
  16. address command '"SetEnv" Check2='check2
  17.  
  18. pos1  =lastpos(" ",check1)
  19. check1=Delstr(check1,1,pos1)
  20. address command '"SetEnv" Version='check1
  21. punkt1=lastpos(".",check1)
  22.  
  23. pos2  =lastpos(" ",check2)
  24. check2=Delstr(check2,1,pos2)
  25. punkt2=lastpos(".",check2)
  26.  
  27. If punkt1~=0 then Ganzzahl1=Delstr(check1,punkt1)
  28. If punkt2~=0 then Ganzzahl2=Delstr(check2,punkt2)
  29.  
  30. If Ganzzahl1<Ganzzahl2 then do
  31.    address command '"SetEnv" Checkdev1='0
  32.    address command '"SetEnv" Checkdev2='1
  33.    Exit
  34. End
  35. If Ganzzahl1>Ganzzahl2 then do
  36.    address command '"SetEnv" Checkdev1='1
  37.    address command '"SetEnv" Checkdev2='0
  38.    Exit
  39. End
  40.  
  41. If punkt1~=0 then Dezzahl1=Delstr(check1,1,punkt1)
  42. If punkt2~=0 then Dezzahl2=Delstr(check2,1,punkt2)
  43.  
  44. If Dezzahl1<Dezzahl2 then do
  45.    address command '"SetEnv" Checkdev1='0
  46.    address command '"SetEnv" Checkdev2='1
  47.    Exit
  48. End
  49. If Dezzahl1>Dezzahl2 then do
  50.    address command '"SetEnv" Checkdev1='1
  51.    address command '"SetEnv" Checkdev2='0
  52.    Exit
  53. End
  54. If Dezzahl1=Dezzahl2 then do
  55.    address command '"SetEnv" Checkdev1='1
  56.    address command '"SetEnv" Checkdev2='1
  57.    Exit
  58. End
  59.  
  60. Exit
  61.